-- background: 2740 from stack: in
-- bmap block id: 3296
-- flags: 4000
-- background id: 0
-- name: UserList


-- part 1 (field)
-- low flags: 03
-- high flags: 0000
-- rect: left=58 top=74 right=123 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: name


-- part 3 (field)
-- low flags: 03
-- high flags: 0000
-- rect: left=58 top=122 right=214 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: address


-- part 4 (field)
-- low flags: 03
-- high flags: 0000
-- rect: left=58 top=213 right=232 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: phone


-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=57 top=307 right=338 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: index
----- HyperTalk script -----
on mouseUp
  lock screen
  put bkgnd field "name" into theName
  go first card
  find whole theName
  if the number of this card is not 1 then
    go back
    find empty
  end if
  unlock screen with iris close
  select the FoundLine
  find empty
end mouseUp


-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=307 right=338 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseDown
  if the number of next card is not 1 then
    visual effect wipe left
    go next
    wait 7
  end if
end mouseDown

on mouseStillDown
  if the number of next card is not 1 then
    visual effect wipe left
    go next
    wait 10
  end if
end mouseStillDown




-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=206 top=307 right=338 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseDown
  if the number of prev card is not 1 then
    visual effect wipe right
    go prev
    wait 10
  end if
end mouseDown

on mouseStillDown
  if the number of prev card is not 1 then
    visual effect wipe right
    go prev
    wait 10
  end if
end mouseStillDown




-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=351 top=309 right=336 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: search
----- HyperTalk script -----
on mouseUp
  global findWhat
  ask "Enter what you would like to search for:" with findWhat
  if it is empty then exit mouseUp
  put it into findwhat
  simpleFind findWhat
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=269 top=309 right=336 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  answer "Print address information for this card?" with "Cancel" or "Print"
  if it is "cancel" then exit mouseUp
  else
    put numToChar (30) & bkgnd field "name" & return & return after printThis
    put bkgnd field "address" & return after printThis
    put bkgnd field "phone" & return after printThis
    printOut printThis,"Times",12,"plain","false","bold","true"
  end if
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=56 top=35 right=64 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: Listing of Resource Providers